%% Figure 3: Brazil: Education Cross-Section in 2010: Data and Models Prediction

Future_Generation_2010 = [9.16	17.98
                            30.74	25.36
                            27.42	16.49
                            23.97	20.55
                            8.71	19.62];

figure(1)
newcolors = [0 0 0
            1 1 1];
gray=colororder(newcolors);
bar(Future_Generation_2010)
ylim([0 40])
xlabel('years of schooling','FontSize',14)
ylabel('fraction of population','FontSize',14)
somenames={'0','1-4','5-8','9-11','12+'};
legend('Data','Model','Location','Northeast')
set(gca,'xticklabel',somenames,'FontSize',14)
print -depsc Future_Generation_2010